Top 10k strings from Tapefile (1982)(MiCROL).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /

Back to the directory listing

   1 z;'''"name: ";
   1 z;"tape counter reading: ";
   1 x,z;"cassette identifier: ";
   1 x$=x$+" ":
   1 wipe lower window
   1 unpack=300
   1 t$="0"+t$:
   1 p$="tape counter reading":
   1 p$="name for saving":
   1 p$="item":
   1 p$="item to find":
   1 p$="cassette identifier":
   1 p$="Delete? - 'yes' to confirm":
   1 p$="Cassette to be listed":
   1 p$="Cassette to be deleted":
   1 n$=d$(c,n1
   1 input a string
   1 il-a,z;" ";
   1 il,ic;(p$);": ";#a;
   1 il+a,z;"not on file":
   1 delrec=700
   1 delete an item
   1 delete a cassette
   1 delcass=800
   1 d$(i)=d$(i+p)
   1 d$(i)=d$(i+a):
   1 change=600
   1 b$;b$;b$;b$;b$;"(";d$(i,
   1 a;"tape ";c$;"            counter ";t$;
   1 a;"item number ";c;" of ";u;
   1 a;"cassette ";i$
   1 a;"all cassettes"
   1 a;"To start off your file you must enter at least one record."
   1 a;"Tapefile"
   1 a;"STOP THE TAPE - THEN PRESS A KEY":
   1 a;"Press a key to go on...":
   1 a;"Is this okay (Y/N) ?"
   1 a;"Contents of ";:
   1 a;"Cassettes on file:";
   1 a;"A=ADD  D=DELETE  F=FIND C=CHANGEL=LIST TAPE CONTENT T=LIST TAPESS=SAVE FILE X=DELETE TAPE Q=QUIT"
   1 TAPEFILE  p
   1 ,z;"no room to add a new record":
   1 ,z;"Change current item from:"'
   1 ,z;"Add new item to file - to exit, press ENTER."
   1 '''"Tapefile 
   1 ''"Allows you to set up and use a  file of your video, audio and   computer cassettes."
   1  1982 MiCROL"